MacWorld 1999 January - Disc 2/Macworld (1999-01) (Disk 2).dmg/Serious Demos/Symbolic Composer 4.2/Environment/System/SYMBOL/Symbol Generators/Fibonacci Series/gen-fibonacci-trans

Text File | 1998-10-23 | 2KB | 26 lines

gen-fibonacci-trans level seed-element1 seed-element2

gen-fibonacci-trans constructs fibonacci symbols from seed-element1 and seed-element2. New material is made by appending previous symbols together to form a new symbol list. Before appending, the most previous symbol list is transposed by the current level value, which controls the process depth.

This function produces nice arpeggios. With symbol-inversion, symbol-inversion-symmetric, symbol-retrograde, symbol-transpose and other symbol processing functions, more variation can be achieved. You can also vary the seed symbols, or generate them directly with other symbol generators, or with gen-fibonacci-trans itself. The seed values can also be tick values, velocities or rationals. Note that dotted or other note lengths that differ from straight m/n rational form cannot be used here.

(gen-fibonacci-trans 1 'a 'b) --> (a c)
(gen-fibonacci-trans 2 'a 'b) --> (a c c)
(gen-fibonacci-trans 3 'a 'b) --> (a c c d f)
(gen-fibonacci-trans 4 'a 'b) --> (a c c d f e g g)
(gen-fibonacci-trans 5 'a 'b) --> (a c c d f e g g f h h i k)

(gen-fibonacci-trans 1 1 '(-10 10)) --> (1 -9 11)
(gen-fibonacci-trans 2 1 '(-10 10)) --> (1 -9 11 3)
(gen-fibonacci-trans 3 1 '(-10 10)) --> (1 -9 11 3 4 -6 14)
(gen-fibonacci-trans 4 1 '(-10 10)) --> (1 -9 11 3 4 -6 14 5 -5 15 7)

(gen-fibonacci-trans 1 (get-ratio '1/2) (get-ratio '1/4))
--> (1/2 5/4)
(gen-fibonacci-trans 2 (get-ratio '1/2) (get-ratio '1/4))
--> (1/2 5/4 5/2)
(gen-fibonacci-trans 3 (get-ratio '1/2) (get-ratio'1/4))
--> (1/2 5/4 5/2 7/2 17/4)
(gen-fibonacci-trans 4 (get-ratio '1/2) (get-ratio '1/4))
--> (1/2 5/4 5/2 7/2 17/4 9/2 21/4 13/2)